/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / mailalias.elc.z / mailalias.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 54 75 65 20 4a |ggum.no |on Tue J|
|00000030| 75 6e 20 32 35 20 31 34 | 3a 34 31 3a 32 30 20 31 |un 25 14|:41:20 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 68 6f 6d 65 2f | 67 64 2f 67 6e 75 2f 65 |e /home/|gd/gnu/e|
|00000060| 6d 61 63 73 2f 31 39 2e | 30 2f 6c 69 73 70 2f 6d |macs/19.|0/lisp/m|
|00000070| 61 69 6c 61 6c 69 61 73 | 2e 65 6c 0a 3b 3b 3b 20 |ailalias|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 33 31 2e 34 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |.31.4..;|;; bytec|
|000000a0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 46 53 46 20 |omp vers|ion FSF |
|000000b0| 32 2e 31 30 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |2.10.;;;| optimiz|
|000000c0| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|000000d0| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|000000e0| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|000000f0| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000100| 61 63 73 20 31 38 2e 0a | 0a 28 69 66 20 28 61 6e |acs 18..|.(if (an|
|00000110| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000120| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000130| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000140| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000150| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|00000160| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|00000170| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|00000180| 22 31 39 2e 32 39 22 29 | 29 29 0a 20 20 20 20 28 |"19.29")|)).    (|
|00000190| 65 72 72 6f 72 20 22 60 | 6d 61 69 6c 61 6c 69 61 |error "`|mailalia|
|000001a0| 73 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |s.el' wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 2e |ed for E|macs 19.|
|000001c0| 32 39 20 6f 72 20 6c 61 | 74 65 72 22 29 29 0a 0a |29 or la|ter"))..|
|000001d0| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|000001e0| 20 73 65 6e 64 6d 61 69 | 6c 29 29 0a 23 40 31 34 | sendmai|l)).#@14|
|000001f0| 39 20 41 6c 69 73 74 20 | 6f 66 20 6c 6f 63 61 6c |9 Alist |of local|
|00000200| 20 75 73 65 72 73 2c 20 | 61 6c 69 61 73 65 73 20 | users, |aliases |
|00000210| 61 6e 64 20 64 69 72 65 | 63 74 6f 72 79 20 65 6e |and dire|ctory en|
|00000220| 74 72 69 65 73 20 61 73 | 20 61 76 61 69 6c 61 62 |tries as| availab|
|00000230| 6c 65 2e 0a 57 68 65 6e | 20 74 20 74 68 69 73 20 |le..When| t this |
|00000240| 73 74 69 6c 6c 20 6e 65 | 65 64 73 20 74 6f 20 62 |still ne|eds to b|
|00000250| 65 20 69 6e 69 74 69 61 | 6c 69 7a 65 64 2e 0a 54 |e initia|lized..T|
|00000260| 68 69 73 20 69 73 20 74 | 68 65 20 62 61 73 69 73 |his is t|he basis|
|00000270| 20 66 6f 72 20 60 6d 61 | 69 6c 2d 63 6f 6d 70 6c | for `ma|il-compl|
|00000280| 65 74 65 27 2e 1f 0a 28 | 64 65 66 76 61 72 20 6d |ete'...(|defvar m|
|00000290| 61 69 6c 2d 6e 61 6d 65 | 73 20 74 20 28 23 24 20 |ail-name|s t (#$ |
|000002a0| 2e 20 34 39 38 29 29 0a | 23 40 36 36 20 41 6c 69 |. 498)).|#@66 Ali|
|000002b0| 73 74 20 6f 66 20 6c 6f | 63 61 6c 20 75 73 65 72 |st of lo|cal user|
|000002c0| 73 2e 0a 57 68 65 6e 20 | 74 20 74 68 69 73 20 73 |s..When |t this s|
|000002d0| 74 69 6c 6c 20 6e 65 65 | 64 73 20 74 6f 20 62 65 |till nee|ds to be|
|000002e0| 20 69 6e 69 74 69 61 6c | 69 7a 65 64 2e 1f 0a 28 | initial|ized...(|
|000002f0| 64 65 66 76 61 72 20 6d | 61 69 6c 2d 6c 6f 63 61 |defvar m|ail-loca|
|00000300| 6c 2d 6e 61 6d 65 73 20 | 74 20 28 23 24 20 2e 20 |l-names |t (#$ . |
|00000310| 36 38 35 29 29 0a 23 40 | 38 35 20 41 6c 69 73 74 |685)).#@|85 Alist|
|00000320| 20 6f 66 20 6d 61 69 6c | 20 61 64 64 72 65 73 73 | of mail| address|
|00000330| 20 64 69 72 65 63 74 6f | 72 79 20 65 6e 74 72 69 | directo|ry entri|
|00000340| 65 73 2e 0a 57 68 65 6e | 20 74 20 74 68 69 73 20 |es..When| t this |
|00000350| 73 74 69 6c 6c 20 6e 65 | 65 64 73 20 74 6f 20 62 |still ne|eds to b|
|00000360| 65 20 69 6e 69 74 69 61 | 6c 69 7a 65 64 2e 1f 0a |e initia|lized...|
|00000370| 28 64 65 66 76 61 72 20 | 6d 61 69 6c 2d 64 69 72 |(defvar |mail-dir|
|00000380| 65 63 74 6f 72 79 2d 6e | 61 6d 65 73 20 74 20 28 |ectory-n|ames t (|
|00000390| 23 24 20 2e 20 37 39 35 | 29 29 0a 28 62 79 74 65 |#$ . 795|)).(byte|
|000003a0| 2d 63 6f 64 65 20 22 c0 | c1 21 84 08 00 c2 11 c1 |-code ".|.!......|
|000003b0| 0b 42 13 c0 87 22 20 5b | 62 6f 75 6e 64 70 20 6d |.B..." [|boundp m|
|000003c0| 61 69 6c 2d 61 64 64 72 | 65 73 73 2d 66 69 65 6c |ail-addr|ess-fiel|
|000003d0| 64 2d 72 65 67 65 78 70 | 20 22 5e 5c 5c 28 52 65 |d-regexp| "^\\(Re|
|000003e0| 73 65 6e 74 2d 5c 5c 29 | 3f 5c 5c 28 54 6f 5c 5c |sent-\\)|?\\(To\\|
|000003f0| 7c 46 72 6f 6d 5c 5c 7c | 43 43 5c 5c 7c 42 43 43 ||From\\||CC\\|BCC|
|00000400| 5c 5c 7c 52 65 70 6c 79 | 2d 74 6f 5c 5c 29 3a 22 |\\|Reply|-to\\):"|
|00000410| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000420| 73 74 5d 20 32 29 0a 23 | 40 32 32 34 20 41 6c 69 |st] 2).#|@224 Ali|
|00000430| 73 74 20 6f 66 20 68 65 | 61 64 65 72 20 66 69 65 |st of he|ader fie|
|00000440| 6c 64 20 61 6e 64 20 65 | 78 70 72 65 73 73 69 6f |ld and e|xpressio|
|00000450| 6e 20 74 6f 20 72 65 74 | 75 72 6e 20 61 6c 69 73 |n to ret|urn alis|
|00000460| 74 20 66 6f 72 20 63 6f | 6d 70 6c 65 74 69 6f 6e |t for co|mpletion|
|00000470| 2e 0a 45 78 70 72 65 73 | 73 69 6f 6e 20 6d 61 79 |..Expres|sion may|
|00000480| 20 72 65 66 65 72 65 6e | 63 65 20 76 61 72 69 61 | referen|ce varia|
|00000490| 62 6c 65 20 60 70 61 74 | 74 65 72 6e 27 20 77 68 |ble `pat|tern' wh|
|000004a0| 69 63 68 20 69 73 20 74 | 68 65 20 73 74 72 69 6e |ich is t|he strin|
|000004b0| 67 20 62 65 69 6e 67 20 | 63 6f 6d 70 6c 65 74 65 |g being |complete|
|000004c0| 64 2e 0a 49 66 20 6e 6f | 74 20 6f 6e 20 6d 61 74 |d..If no|t on mat|
|000004d0| 63 68 69 6e 67 20 68 65 | 61 64 65 72 2c 20 60 6d |ching he|ader, `m|
|000004e0| 61 69 6c 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 75 6e |ail-comp|lete-fun|
|000004f0| 63 74 69 6f 6e 27 20 67 | 65 74 73 20 63 61 6c 6c |ction' g|ets call|
|00000500| 65 64 20 69 6e 73 74 65 | 61 64 2e 1f 0a 28 64 65 |ed inste|ad...(de|
|00000510| 66 76 61 72 20 6d 61 69 | 6c 2d 63 6f 6d 70 6c 65 |fvar mai|l-comple|
|00000520| 74 65 2d 61 6c 69 73 74 | 20 28 62 79 74 65 2d 63 |te-alist| (byte-c|
|00000530| 6f 64 65 20 22 08 c1 42 | c2 42 87 22 20 5b 6d 61 |ode "..B|.B." [ma|
|00000540| 69 6c 2d 61 64 64 72 65 | 73 73 2d 66 69 65 6c 64 |il-addre|ss-field|
|00000550| 2d 72 65 67 65 78 70 20 | 28 6d 61 69 6c 2d 67 65 |-regexp |(mail-ge|
|00000560| 74 2d 6e 61 6d 65 73 20 | 70 61 74 74 65 72 6e 29 |t-names |pattern)|
|00000570| 20 28 28 22 4e 65 77 73 | 67 72 6f 75 70 73 3a 22 | (("News|groups:"|
|00000580| 20 69 66 20 28 62 6f 75 | 6e 64 70 20 28 71 75 6f | if (bou|ndp (quo|
|00000590| 74 65 20 67 6e 75 73 2d | 61 63 74 69 76 65 2d 68 |te gnus-|active-h|
|000005a0| 61 73 68 74 62 29 29 20 | 67 6e 75 73 2d 61 63 74 |ashtb)) |gnus-act|
|000005b0| 69 76 65 2d 68 61 73 68 | 74 62 20 28 69 66 20 28 |ive-hash|tb (if (|
|000005c0| 62 6f 75 6e 64 70 20 6e | 65 77 73 2d 67 72 6f 75 |boundp n|ews-grou|
|000005d0| 70 2d 61 72 74 69 63 6c | 65 2d 61 73 73 6f 63 29 |p-articl|e-assoc)|
|000005e0| 20 6e 65 77 73 2d 67 72 | 6f 75 70 2d 61 72 74 69 | news-gr|oup-arti|
|000005f0| 63 6c 65 2d 61 73 73 6f | 63 29 29 20 28 22 46 6f |cle-asso|c)) ("Fo|
|00000600| 6c 6c 6f 77 75 70 2d 54 | 6f 3a 22 20 6d 61 69 6c |llowup-T|o:" mail|
|00000610| 2d 73 65 6e 74 74 6f 2d | 6e 65 77 73 67 72 6f 75 |-sentto-|newsgrou|
|00000620| 70 73 29 29 5d 20 32 29 | 20 28 23 24 20 2e 20 31 |ps))] 2)| (#$ . 1|
|00000630| 30 36 39 29 29 0a 23 40 | 37 32 20 46 75 6e 63 74 |069)).#@|72 Funct|
|00000640| 69 6f 6e 20 74 6f 20 63 | 61 6c 6c 20 77 68 65 6e |ion to c|all when|
|00000650| 20 63 6f 6d 70 6c 65 74 | 69 6e 67 20 6f 75 74 73 | complet|ing outs|
|00000660| 69 64 65 20 60 6d 61 69 | 6c 2d 63 6f 6d 70 6c 65 |ide `mai|l-comple|
|00000670| 74 65 2d 61 6c 69 73 74 | 27 2d 68 65 61 64 65 72 |te-alist|'-header|
|00000680| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 61 69 6c 2d |...(defv|ar mail-|
|00000690| 63 6f 6d 70 6c 65 74 65 | 2d 66 75 6e 63 74 69 6f |complete|-functio|
|000006a0| 6e 20 28 71 75 6f 74 65 | 20 69 73 70 65 6c 6c 2d |n (quote| ispell-|
|000006b0| 63 6f 6d 70 6c 65 74 65 | 2d 77 6f 72 64 29 20 28 |complete|-word) (|
|000006c0| 23 24 20 2e 20 31 35 39 | 35 29 29 0a 23 40 31 30 |#$ . 159|5)).#@10|
|000006d0| 31 20 46 75 6e 63 74 69 | 6f 6e 20 74 6f 20 67 65 |1 Functi|on to ge|
|000006e0| 74 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 66 72 |t comple|tions fr|
|000006f0| 6f 6d 20 64 69 72 65 63 | 74 6f 72 79 20 73 65 72 |om direc|tory ser|
|00000700| 76 69 63 65 20 6f 72 20 | 60 6e 69 6c 27 20 66 6f |vice or |`nil' fo|
|00000710| 72 20 6e 6f 6e 65 2e 0a | 53 65 65 20 60 6d 61 69 |r none..|See `mai|
|00000720| 6c 2d 64 69 72 65 63 74 | 6f 72 79 2d 72 65 71 75 |l-direct|ory-requ|
|00000730| 65 72 79 27 2e 1f 0a 28 | 64 65 66 76 61 72 20 6d |ery'...(|defvar m|
|00000740| 61 69 6c 2d 64 69 72 65 | 63 74 6f 72 79 2d 66 75 |ail-dire|ctory-fu|
|00000750| 6e 63 74 69 6f 6e 20 6e | 69 6c 20 28 23 24 20 2e |nction n|il (#$ .|
|00000760| 20 31 37 34 36 29 29 0a | 23 40 31 35 39 20 57 68 | 1746)).|#@159 Wh|
|00000770| 65 6e 20 6e 6f 6e 2d 60 | 6e 69 6c 27 20 63 61 6c |en non-`|nil' cal|
|00000780| 6c 20 60 6d 61 69 6c 2d | 64 69 72 65 63 74 6f 72 |l `mail-|director|
|00000790| 79 2d 66 75 6e 63 74 69 | 6f 6e 27 20 66 6f 72 20 |y-functi|on' for |
|000007a0| 65 61 63 68 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2e |each com|pletion.|
|000007b0| 0a 49 6e 20 74 68 61 74 | 20 63 61 73 65 2c 20 6f |.In that| case, o|
|000007c0| 6e 65 20 61 72 67 75 6d | 65 6e 74 20 67 65 74 73 |ne argum|ent gets|
|000007d0| 20 70 61 73 73 65 64 20 | 74 6f 20 74 68 65 20 66 | passed |to the f|
|000007e0| 75 6e 63 74 69 6f 6e 2c | 20 74 68 65 20 70 61 72 |unction,| the par|
|000007f0| 74 69 61 6c 20 73 74 72 | 69 6e 67 0a 65 6e 74 65 |tial str|ing.ente|
|00000800| 72 65 64 20 73 6f 20 66 | 61 72 2e 1f 0a 28 64 65 |red so f|ar...(de|
|00000810| 66 76 61 72 20 6d 61 69 | 6c 2d 64 69 72 65 63 74 |fvar mai|l-direct|
|00000820| 6f 72 79 2d 72 65 71 75 | 65 72 79 20 6e 69 6c 20 |ory-requ|ery nil |
|00000830| 28 23 24 20 2e 20 31 39 | 30 32 29 29 0a 23 40 34 |(#$ . 19|02)).#@4|
|00000840| 34 32 20 55 6e 69 78 20 | 63 6f 6d 6d 61 6e 64 20 |42 Unix |command |
|00000850| 77 68 65 6e 20 60 6d 61 | 69 6c 2d 64 69 72 65 63 |when `ma|il-direc|
|00000860| 74 6f 72 79 2d 66 75 6e | 63 74 69 6f 6e 27 20 69 |tory-fun|ction' i|
|00000870| 73 20 60 6d 61 69 6c 2d | 64 69 72 65 63 74 6f 72 |s `mail-|director|
|00000880| 79 2d 70 72 6f 63 65 73 | 73 27 2e 0a 54 68 69 73 |y-proces|s'..This|
|00000890| 20 69 73 20 61 20 6c 69 | 73 74 20 6f 66 20 74 68 | is a li|st of th|
|000008a0| 65 20 66 6f 72 6d 20 28 | 43 4f 4d 4d 41 4e 44 20 |e form (|COMMAND |
|000008b0| 41 52 47 20 2e 2e 2e 29 | 2c 20 77 68 65 72 65 20 |ARG ...)|, where |
|000008c0| 65 61 63 68 20 6f 66 20 | 74 68 65 20 6c 69 73 74 |each of |the list|
|000008d0| 20 65 6c 65 6d 65 6e 74 | 73 0a 69 73 20 65 76 61 | element|s.is eva|
|000008e0| 6c 75 61 74 65 64 2e 20 | 20 57 68 65 6e 20 60 6d |luated. | When `m|
|000008f0| 61 69 6c 2d 64 69 72 65 | 63 74 6f 72 79 2d 72 65 |ail-dire|ctory-re|
|00000900| 71 75 65 72 79 27 20 69 | 73 20 6e 6f 6e 2d 60 6e |query' i|s non-`n|
|00000910| 69 6c 27 2c 20 64 75 72 | 69 6e 67 0a 65 76 61 6c |il', dur|ing.eval|
|00000920| 75 61 74 69 6f 6e 20 74 | 68 65 20 76 61 72 69 61 |uation t|he varia|
|00000930| 62 6c 65 20 60 70 61 74 | 74 65 72 6e 27 20 63 6f |ble `pat|tern' co|
|00000940| 6e 74 61 69 6e 73 20 74 | 68 65 20 70 61 72 74 69 |ntains t|he parti|
|00000950| 61 6c 20 69 6e 70 75 74 | 20 62 65 69 6e 67 20 63 |al input| being c|
|00000960| 6f 6d 70 6c 65 74 65 64 | 2e 0a 54 68 69 73 20 6d |ompleted|..This m|
|00000970| 69 67 68 74 20 6c 6f 6f | 6b 20 6c 69 6b 65 0a 0a |ight loo|k like..|
|00000980| 20 20 27 28 72 65 6d 6f | 74 65 2d 73 68 65 6c 6c |  '(remo|te-shell|
|00000990| 2d 70 72 6f 67 72 61 6d | 20 22 48 4f 53 54 22 20 |-program| "HOST" |
|000009a0| 22 2d 6e 6c 22 20 22 55 | 53 45 52 22 20 22 43 4f |"-nl" "U|SER" "CO|
|000009b0| 4d 4d 41 4e 44 22 29 0a | 0a 6f 72 0a 0a 20 20 27 |MMAND").|.or..  '|
|000009c0| 28 72 65 6d 6f 74 65 2d | 73 68 65 6c 6c 2d 70 72 |(remote-|shell-pr|
|000009d0| 6f 67 72 61 6d 20 22 48 | 4f 53 54 22 20 22 2d 6e |ogram "H|OST" "-n|
|000009e0| 22 20 22 43 4f 4d 4d 41 | 4e 44 20 27 5e 22 20 70 |" "COMMA|ND '^" p|
|000009f0| 61 74 74 65 72 6e 20 22 | 27 22 29 1f 0a 28 64 65 |attern "|'")..(de|
|00000a00| 66 76 61 72 20 6d 61 69 | 6c 2d 64 69 72 65 63 74 |fvar mai|l-direct|
|00000a10| 6f 72 79 2d 70 72 6f 63 | 65 73 73 20 6e 69 6c 20 |ory-proc|ess nil |
|00000a20| 28 23 24 20 2e 20 32 31 | 31 35 29 29 0a 23 40 36 |(#$ . 21|15)).#@6|
|00000a30| 35 20 4c 69 73 74 20 6f | 66 20 28 48 4f 53 54 20 |5 List o|f (HOST |
|00000a40| 53 45 52 56 49 43 45 29 | 20 66 6f 72 20 73 74 72 |SERVICE)| for str|
|00000a50| 65 61 6d 20 63 6f 6e 6e | 65 63 74 69 6f 6e 20 74 |eam conn|ection t|
|00000a60| 6f 20 6d 61 69 6c 20 64 | 69 72 65 63 74 6f 72 79 |o mail d|irectory|
|00000a70| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6d 61 69 6c 2d |...(defv|ar mail-|
|00000a80| 64 69 72 65 63 74 6f 72 | 79 2d 73 74 72 65 61 6d |director|y-stream|
|00000a90| 20 6e 69 6c 20 28 23 24 | 20 2e 20 32 36 31 30 29 | nil (#$| . 2610)|
|00000aa0| 29 0a 23 40 32 38 32 20 | 48 6f 77 20 74 6f 20 69 |).#@282 |How to i|
|00000ab0| 6e 74 65 72 70 72 65 74 | 20 74 68 65 20 6f 75 74 |nterpret| the out|
|00000ac0| 70 75 74 20 6f 66 20 60 | 6d 61 69 6c 2d 64 69 72 |put of `|mail-dir|
|00000ad0| 65 63 74 6f 72 79 2d 66 | 75 6e 63 74 69 6f 6e 27 |ectory-f|unction'|
|00000ae0| 2e 0a 54 68 72 65 65 20 | 74 79 70 65 73 20 6f 66 |..Three |types of|
|00000af0| 20 76 61 6c 75 65 73 20 | 61 72 65 20 70 6f 73 73 | values |are poss|
|00000b00| 69 62 6c 65 3a 0a 0a 20 | 20 2d 20 6e 69 6c 20 6d |ible:.. | - nil m|
|00000b10| 65 61 6e 73 20 74 6f 20 | 67 61 74 68 65 72 20 65 |eans to |gather e|
|00000b20| 61 63 68 20 6c 69 6e 65 | 20 61 73 20 6f 6e 65 20 |ach line| as one |
|00000b30| 6e 61 6d 65 0a 20 20 2d | 20 72 65 67 65 78 70 20 |name.  -| regexp |
|00000b40| 6d 65 61 6e 73 20 66 69 | 72 73 74 20 5c 28 67 72 |means fi|rst \(gr|
|00000b50| 6f 75 70 69 6e 67 5c 29 | 20 69 6e 20 73 75 63 63 |ouping\)| in succ|
|00000b60| 65 73 73 69 76 65 20 6d | 61 74 63 68 65 73 20 69 |essive m|atches i|
|00000b70| 73 20 6e 61 6d 65 0a 20 | 20 2d 20 66 75 6e 63 74 |s name. | - funct|
|00000b80| 69 6f 6e 20 63 61 6c 6c | 65 64 20 61 74 20 62 65 |ion call|ed at be|
|00000b90| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 62 75 66 66 65 |ginning |of buffe|
|00000ba0| 72 20 74 68 61 74 20 72 | 65 74 75 72 6e 73 20 61 |r that r|eturns a|
|00000bb0| 6e 20 61 6c 69 73 74 20 | 6f 66 20 6e 61 6d 65 73 |n alist |of names|
|00000bc0| 1f 0a 28 64 65 66 76 61 | 72 20 6d 61 69 6c 2d 64 |..(defva|r mail-d|
|00000bd0| 69 72 65 63 74 6f 72 79 | 2d 70 61 72 73 65 72 20 |irectory|-parser |
|00000be0| 6e 69 6c 20 28 23 24 20 | 2e 20 32 37 32 38 29 29 |nil (#$ |. 2728))|
|00000bf0| 0a 23 40 32 38 35 20 45 | 78 70 61 6e 64 20 61 6c |.#@285 E|xpand al|
|00000c00| 6c 20 6d 61 69 6c 20 61 | 6c 69 61 73 65 73 20 69 |l mail a|liases i|
|00000c10| 6e 20 73 75 69 74 61 62 | 6c 65 20 68 65 61 64 65 |n suitab|le heade|
|00000c20| 72 20 66 69 65 6c 64 73 | 20 66 6f 75 6e 64 20 62 |r fields| found b|
|00000c30| 65 74 77 65 65 6e 20 42 | 45 47 20 61 6e 64 20 45 |etween B|EG and E|
|00000c40| 4e 44 2e 0a 53 75 69 74 | 61 62 6c 65 20 68 65 61 |ND..Suit|able hea|
|00000c50| 64 65 72 20 66 69 65 6c | 64 73 20 61 72 65 20 60 |der fiel|ds are `|
|00000c60| 54 6f 27 2c 20 60 46 72 | 6f 6d 27 2c 20 60 43 43 |To', `Fr|om', `CC|
|00000c70| 27 20 61 6e 64 20 60 42 | 43 43 27 2c 20 60 52 65 |' and `B|CC', `Re|
|00000c80| 70 6c 79 2d 74 6f 27 2c | 20 61 6e 64 0a 74 68 65 |ply-to',| and.the|
|00000c90| 69 72 20 60 52 65 73 65 | 6e 74 2d 27 20 76 61 72 |ir `Rese|nt-' var|
|00000ca0| 69 61 6e 74 73 2e 0a 0a | 4f 70 74 69 6f 6e 61 6c |iants...|Optional|
|00000cb0| 20 73 65 63 6f 6e 64 20 | 61 72 67 20 45 58 43 4c | second |arg EXCL|
|00000cc0| 55 44 45 20 6d 61 79 20 | 62 65 20 61 20 72 65 67 |UDE may |be a reg|
|00000cd0| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00000ce0| 64 65 66 69 6e 69 6e 67 | 20 74 65 78 74 20 74 6f |defining| text to|
|00000cf0| 20 62 65 0a 72 65 6d 6f | 76 65 64 20 66 72 6f 6d | be.remo|ved from|
|00000d00| 20 61 6c 69 61 73 20 65 | 78 70 61 6e 73 69 6f 6e | alias e|xpansion|
|00000d10| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |s...(def|alias 'e|
|00000d20| 78 70 61 6e 64 2d 6d 61 | 69 6c 2d 61 6c 69 61 73 |xpand-ma|il-alias|
|00000d30| 65 73 20 23 5b 28 62 65 | 67 20 65 6e 64 20 26 6f |es #[(be|g end &o|
|00000d40| 70 74 69 6f 6e 61 6c 20 | 65 78 63 6c 75 64 65 29 |ptional |exclude)|
|00000d50| 20 22 c0 20 88 09 c2 3d | 83 0e 00 c3 11 c4 20 88 | ". ...=|...... .|
|00000d60| 0d 62 88 c6 20 0e 07 c3 | 93 16 07 c3 1e 08 c2 1e |.b.. ...|........|
|00000d70| 08 c9 0e 5c 6e 0e 07 c2 | 23 29 83 21 01 cb c3 77 |...\n...|#).!...w|
|00000d80| 88 60 c3 89 89 89 89 1e | 5c 66 1e 0d 1e 0e 1e 0f |.`......|\f......|
|00000d90| 1e 10 1e 11 c9 d2 0e 07 | d3 23 88 d4 79 88 d5 c3 |........|.#..y...|
|00000da0| 78 88 d6 20 16 10 0e 11 | 62 88 60 0e 10 57 83 16 |x.. ....|b.`..W..|
|00000db0| 01 60 16 0f 0e 5c 66 83 | 7b 00 0e 0f 0e 10 0e 5c |.`...\f.|{......\|
|00000dc0| 66 40 41 5a 56 83 7b 00 | 0e 5c 66 41 89 16 5c 66 |f@AZV.{.|.\fA..\f|
|00000dd0| 84 65 00 c9 d7 0e 10 c2 | 23 83 91 00 d4 94 16 0e |.e......|#.......|
|00000de0| 60 0e 0e 5a 16 0d 82 9a | 00 d8 0e 10 21 16 0e d4 |`..Z....|....!...|
|00000df0| 16 0d c3 d9 0e 0f 0e 0e | 5c 22 1e 1a 1e 1b dc 0e |........|\"......|
|00000e00| 1a 0e 5c 66 5c 22 84 5c | 6e 01 dc 0e 1a 09 5c 22 |..\f\".\|n.....\"|
|00000e10| 41 89 16 1b 83 5c 6e 01 | 0e 1a 0e 10 0e 0e 5a 42 |A....\n.|......ZB|
|00000e20| 0e 5c 66 42 16 5c 66 0e | 0f 62 88 0e 1b 63 88 0e |.\fB.\f.|.b...c..|
|00000e30| 1d 83 f9 00 de 0e 1d df | 51 d6 20 1e 07 1e 20 0e |........|Q. ... .|
|00000e40| 0f 62 88 c9 0e 20 0e 07 | c2 23 83 f4 00 e1 e2 21 |.b... ..|.#.....!|
|00000e50| 88 82 e3 00 0e 07 62 88 | 2a 60 60 0e 0e 0e 0f 5a |......b.|*``....Z|
|00000e60| 5c 5c 7c 88 0e 0f 62 88 | 82 12 01 0e 0e 62 88 0e |\\|...b.|.....b..|
|00000e70| 0d 75 88 2a 82 56 00 0e | 10 c3 89 93 88 2e 06 82 |.u.*.V..|........|
|00000e80| 1c 00 0e 07 c3 89 93 29 | 87 22 20 5b 73 65 6e 64 |.......)|." [send|
|00000e90| 6d 61 69 6c 2d 73 79 6e | 63 2d 61 6c 69 61 73 65 |mail-syn|c-aliase|
|00000ea0| 73 20 6d 61 69 6c 2d 61 | 6c 69 61 73 65 73 20 74 |s mail-a|liases t|
|00000eb0| 20 6e 69 6c 20 62 75 69 | 6c 64 2d 6d 61 69 6c 2d | nil bui|ld-mail-|
|00000ec0| 61 6c 69 61 73 65 73 20 | 62 65 67 20 6d 61 6b 65 |aliases |beg make|
|00000ed0| 2d 6d 61 72 6b 65 72 20 | 65 6e 64 20 63 61 73 65 |-marker |end case|
|00000ee0| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 72 65 2d |-fold-se|arch re-|
|00000ef0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6d |search-f|orward m|
|00000f00| 61 69 6c 2d 61 64 64 72 | 65 73 73 2d 66 69 65 6c |ail-addr|ess-fiel|
|00000f10| 64 2d 72 65 67 65 78 70 | 20 22 20 09 22 20 64 69 |d-regexp| " ." di|
|00000f20| 73 61 62 6c 65 64 2d 61 | 6c 69 61 73 65 73 20 73 |sabled-a|liases s|
|00000f30| 65 70 6c 65 6e 20 65 70 | 6f 73 20 70 6f 73 20 65 |eplen ep|os pos e|
|00000f40| 6e 64 31 20 62 65 67 31 | 20 22 5e 5b 5e 20 09 5d |nd1 beg1| "^[^ .]|
|00000f50| 22 20 6d 6f 76 65 20 30 | 20 22 20 09 5c 6e 22 20 |" move 0| " .\n" |
|00000f60| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 22 5b 20 |point-ma|rker "[ |
|00000f70| 09 5d 2a 5b 5c 6e 2c 5d | 5b 20 09 5d 2a 22 20 6d |.]*[\n,]|[ .]*" m|
|00000f80| 61 72 6b 65 72 2d 70 6f | 73 69 74 69 6f 6e 20 62 |arker-po|sition b|
|00000f90| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 2d |uffer-su|bstring-|
|00000fa0| 6e 6f 2d 70 72 6f 70 65 | 72 74 69 65 73 20 73 74 |no-prope|rties st|
|00000fb0| 72 69 6e 67 20 74 72 61 | 6e 73 6c 61 74 69 6f 6e |ring tra|nslation|
|00000fc0| 20 61 73 73 6f 63 20 65 | 78 63 6c 75 64 65 20 22 | assoc e|xclude "|
|00000fd0| 5c 5c 62 5c 5c 28 22 20 | 22 5c 5c 29 5c 5c 62 22 |\\b\\(" |"\\)\\b"|
|00000fe0| 20 72 65 67 65 78 70 20 | 72 65 70 6c 61 63 65 2d | regexp |replace-|
|00000ff0| 6d 61 74 63 68 20 22 22 | 5d 20 37 20 28 23 24 20 |match ""|] 7 (#$ |
|00001000| 2e 20 33 30 36 33 29 5d | 29 0a 23 40 31 34 30 20 |. 3063)]|).#@140 |
|00001010| 52 65 61 64 20 6d 61 69 | 6c 20 61 6c 69 61 73 65 |Read mai|l aliase|
|00001020| 73 20 66 72 6f 6d 20 70 | 65 72 73 6f 6e 61 6c 20 |s from p|ersonal |
|00001030| 61 6c 69 61 73 65 73 20 | 66 69 6c 65 20 61 6e 64 |aliases |file and|
|00001040| 20 73 65 74 20 60 6d 61 | 69 6c 2d 61 6c 69 61 73 | set `ma|il-alias|
|00001050| 65 73 27 2e 0a 42 79 20 | 64 65 66 61 75 6c 74 2c |es'..By |default,|
|00001060| 20 74 68 69 73 20 69 73 | 20 74 68 65 20 66 69 6c | this is| the fil|
|00001070| 65 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 60 |e specif|ied by `|
|00001080| 6d 61 69 6c 2d 70 65 72 | 73 6f 6e 61 6c 2d 61 6c |mail-per|sonal-al|
|00001090| 69 61 73 2d 66 69 6c 65 | 27 2e 1f 0a 28 64 65 66 |ias-file|'...(def|
|000010a0| 61 6c 69 61 73 20 27 62 | 75 69 6c 64 2d 6d 61 69 |alias 'b|uild-mai|
|000010b0| 6c 2d 61 6c 69 61 73 65 | 73 20 23 5b 28 26 6f 70 |l-aliase|s #[(&op|
|000010c0| 74 69 6f 6e 61 6c 20 66 | 69 6c 65 29 20 22 c0 09 |tional f|ile) "..|
|000010d0| 86 06 00 5c 6e 21 11 c3 | 70 1c 1d c6 8e c7 c8 21 |...\n!..|p......!|
|000010e0| 89 15 71 88 09 83 a7 00 | c9 09 21 83 2f 00 8a c9 |..q.....|..!./...|
|000010f0| 09 21 71 88 ca 65 64 5c | 22 29 63 88 82 4f 00 cb |.!q..ed\|")c..O..|
|00001100| 09 21 83 3c 00 cc 09 21 | 88 82 4f 00 cb cd 09 50 |.!.<...!|..O....P|
|00001110| 89 11 21 83 4d 00 cc 09 | 21 88 82 4f 00 c3 11 64 |..!.M...|!..O...d|
|00001120| 62 88 68 ce 3d 84 5b 00 | cf 20 88 65 62 88 6d 84 |b.h.=.[.|. .eb.m.|
|00001130| 7f 00 c3 7f 88 68 d0 55 | 83 79 00 d1 d2 21 88 d1 |.....h.U|.y...!..|
|00001140| d3 21 88 d4 63 88 82 5e | 00 d3 75 88 82 5e 00 65 |.!..c..^|..u..^.e|
|00001150| 62 88 d5 d6 c3 d7 23 83 | a1 00 d5 d8 21 88 ca d9 |b.....#.|....!...|
|00001160| 94 d9 95 5c 22 11 d9 79 | 88 da 63 88 d9 79 88 82 |...\"..y|..c..y..|
|00001170| 15 00 c3 89 11 84 19 00 | 65 62 88 d5 db c3 d7 23 |........|eb.....#|
|00001180| 83 d0 00 dc dd 21 1e 1e | df c3 77 88 60 1e 20 c3 |.....!..|..w.`. .|
|00001190| 7f 88 e1 0e 1e ca 0e 20 | 60 5c 22 d7 23 88 2a 82 |....... |`\".#.*.|
|000011a0| aa 00 0e 5c 22 2b 87 22 | 20 5b 65 78 70 61 6e 64 |...\"+."| [expand|
|000011b0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 20 |-file-na|me file |
|000011c0| 6d 61 69 6c 2d 70 65 72 | 73 6f 6e 61 6c 2d 61 6c |mail-per|sonal-al|
|000011d0| 69 61 73 2d 66 69 6c 65 | 20 6e 69 6c 20 6f 62 75 |ias-file| nil obu|
|000011e0| 66 20 62 75 66 66 65 72 | 20 28 28 62 79 74 65 2d |f buffer| ((byte-|
|000011f0| 63 6f 64 65 20 22 08 83 | 08 00 c1 08 21 88 5c 6e |code "..|....!.\n|
|00001200| 71 87 22 20 5b 62 75 66 | 66 65 72 20 6b 69 6c 6c |q." [buf|fer kill|
|00001210| 2d 62 75 66 66 65 72 20 | 6f 62 75 66 5d 20 32 29 |-buffer |obuf] 2)|
|00001220| 29 20 67 65 6e 65 72 61 | 74 65 2d 6e 65 77 2d 62 |) genera|te-new-b|
|00001230| 75 66 66 65 72 20 22 20 | 6d 61 69 6c 72 63 22 20 |uffer " |mailrc" |
|00001240| 67 65 74 2d 66 69 6c 65 | 2d 62 75 66 66 65 72 20 |get-file|-buffer |
|00001250| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00001260| 2d 6e 6f 2d 70 72 6f 70 | 65 72 74 69 65 73 20 66 |-no-prop|erties f|
|00001270| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 69 6e 73 |ile-exis|ts-p ins|
|00001280| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|00001290| 73 20 22 7e 2f 22 20 31 | 30 20 6e 65 77 6c 69 6e |s "~/" 1|0 newlin|
|000012a0| 65 20 39 32 20 64 65 6c | 65 74 65 2d 63 68 61 72 |e 92 del|ete-char|
|000012b0| 20 2d 31 20 31 20 33 32 | 20 72 65 2d 73 65 61 72 | -1 1 32| re-sear|
|000012c0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5e 73 6f 75 |ch-forwa|rd "^sou|
|000012d0| 72 63 65 5b 20 09 5d 2b | 22 20 74 20 22 5c 5c 53 |rce[ .]+|" t "\\S|
|000012e0| 2d 2b 22 20 30 20 22 23 | 20 22 20 22 5e 5c 5c 28 |-+" 0 "#| " "^\\(|
|000012f0| 61 5c 5c 7c 61 6c 69 61 | 73 5c 5c 7c 67 5c 5c 7c |a\\|alia|s\\|g\\||
|00001300| 67 72 6f 75 70 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 |group\\)|[ .]+\\(|
|00001310| 5b 5e 20 09 5d 2b 5c 5c | 29 22 20 6d 61 74 63 68 |[^ .]+\\|)" match|
|00001320| 2d 73 74 72 69 6e 67 20 | 32 20 6e 61 6d 65 20 22 |-string |2 name "|
|00001330| 20 09 22 20 73 74 61 72 | 74 20 64 65 66 69 6e 65 | ." star|t define|
|00001340| 2d 6d 61 69 6c 2d 61 6c | 69 61 73 20 6d 61 69 6c |-mail-al|ias mail|
|00001350| 2d 61 6c 69 61 73 65 73 | 5d 20 36 20 28 23 24 20 |-aliases|] 6 (#$ |
|00001360| 2e 20 34 31 31 32 29 5d | 29 0a 23 40 33 36 30 20 |. 4112)]|).#@360 |
|00001370| 44 65 66 69 6e 65 20 4e | 41 4d 45 20 61 73 20 61 |Define N|AME as a|
|00001380| 20 6d 61 69 6c 20 61 6c | 69 61 73 20 74 68 61 74 | mail al|ias that|
|00001390| 20 74 72 61 6e 73 6c 61 | 74 65 73 20 74 6f 20 44 | transla|tes to D|
|000013a0| 45 46 49 4e 49 54 49 4f | 4e 2e 0a 54 68 69 73 20 |EFINITIO|N..This |
|000013b0| 6d 65 61 6e 73 20 74 68 | 61 74 20 73 65 6e 64 69 |means th|at sendi|
|000013c0| 6e 67 20 61 20 6d 65 73 | 73 61 67 65 20 74 6f 20 |ng a mes|sage to |
|000013d0| 4e 41 4d 45 20 77 69 6c | 6c 20 61 63 74 75 61 6c |NAME wil|l actual|
|000013e0| 6c 79 20 73 65 6e 64 20 | 74 6f 20 44 45 46 49 4e |ly send |to DEFIN|
|000013f0| 49 54 49 4f 4e 2e 0a 0a | 4e 6f 72 6d 61 6c 6c 79 |ITION...|Normally|
|00001400| 2c 20 74 68 65 20 61 64 | 64 72 65 73 73 65 73 20 |, the ad|dresses |
|00001410| 69 6e 20 44 45 46 49 4e | 49 54 49 4f 4e 20 6d 75 |in DEFIN|ITION mu|
|00001420| 73 74 20 62 65 20 73 65 | 70 61 72 61 74 65 64 20 |st be se|parated |
|00001430| 62 79 20 63 6f 6d 6d 61 | 73 2e 0a 49 66 20 46 52 |by comma|s..If FR|
|00001440| 4f 4d 2d 4d 41 49 4c 52 | 43 2d 46 49 4c 45 20 69 |OM-MAILR|C-FILE i|
|00001450| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 6e 20 |s non-ni|l, then |
|00001460| 61 64 64 72 65 73 73 65 | 73 20 69 6e 20 44 45 46 |addresse|s in DEF|
|00001470| 49 4e 49 54 49 4f 4e 20 | 0a 63 61 6e 20 62 65 20 |INITION |.can be |
|00001480| 73 65 70 61 72 61 74 65 | 64 20 62 79 20 73 70 61 |separate|d by spa|
|00001490| 63 65 73 3b 20 61 6e 20 | 61 64 64 72 65 73 73 20 |ces; an |address |
|000014a0| 63 61 6e 20 63 6f 6e 74 | 61 69 6e 20 73 70 61 63 |can cont|ain spac|
|000014b0| 65 73 0a 69 66 20 69 74 | 20 69 73 20 71 75 6f 74 |es.if it| is quot|
|000014c0| 65 64 20 77 69 74 68 20 | 64 6f 75 62 6c 65 2d 71 |ed with |double-q|
|000014d0| 75 6f 74 65 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |uotes...|(defalia|
|000014e0| 73 20 27 64 65 66 69 6e | 65 2d 6d 61 69 6c 2d 61 |s 'defin|e-mail-a|
|000014f0| 6c 69 61 73 20 23 5b 28 | 6e 61 6d 65 20 64 65 66 |lias #[(|name def|
|00001500| 69 6e 69 74 69 6f 6e 20 | 26 6f 70 74 69 6f 6e 61 |inition |&optiona|
|00001510| 6c 20 66 72 6f 6d 2d 6d | 61 69 6c 72 63 2d 66 69 |l from-m|ailrc-fi|
|00001520| 6c 65 29 20 22 c0 20 88 | 09 c2 3d 83 14 00 c3 11 |le) ". .|..=.....|
|00001530| c4 0d 21 83 14 00 c6 20 | 88 c7 c8 0e 09 5c 22 83 |..!.... |.....\".|
|00001540| 24 00 0e 09 ca 95 c3 4f | 16 09 c7 cb 0e 09 5c 22 |$......O|......\"|
|00001550| 83 34 00 0e 09 ca 89 94 | 4f 16 09 c3 0e 09 cc 9a |.4......|O.......|
|00001560| 3f 85 3e 00 ca 0e 09 47 | c3 89 1e 0d 1e 0e 1e 0f |?.>....G|........|
|00001570| 1e 10 1e 11 0e 10 83 a9 | 00 0e 12 83 7e 00 0e 09 |........|....~...|
|00001580| 0e 10 48 d3 3d 83 72 00 | 0e 10 54 16 10 c7 d4 0e |..H.=.r.|..T.....|
|00001590| 09 0e 10 23 16 0e 82 87 | 00 c7 d5 0e 09 0e 10 23 |...#....|.......#|
|000015a0| 16 0e 82 87 00 c7 d6 0e | 09 0e 10 23 16 0e 0e 09 |........|...#....|
|000015b0| 0e 10 0e 0e 4f 0e 11 42 | 16 11 0e 0e 85 a3 00 ca |....O..B|........|
|000015c0| 95 0e 0f 55 3f 85 a3 00 | ca 95 89 16 10 84 52 00 |...U?...|......R.|
|000015d0| d7 d8 0e 11 9f d9 23 16 | 09 da 0e 1b 09 5c 22 89 |......#.|.....\".|
|000015e0| 16 0d 83 c5 00 0e 0d 0e | 09 a1 82 d1 00 0e 1b 0e |........|........|
|000015f0| 09 42 09 42 11 c2 89 16 | 1c 2d 87 22 20 5b 73 65 |.B.B....|.-." [se|
|00001600| 6e 64 6d 61 69 6c 2d 73 | 79 6e 63 2d 61 6c 69 61 |ndmail-s|ync-alia|
|00001610| 73 65 73 20 6d 61 69 6c | 2d 61 6c 69 61 73 65 73 |ses mail|-aliases|
|00001620| 20 74 20 6e 69 6c 20 66 | 69 6c 65 2d 65 78 69 73 | t nil f|ile-exis|
|00001630| 74 73 2d 70 20 6d 61 69 | 6c 2d 70 65 72 73 6f 6e |ts-p mai|l-person|
|00001640| 61 6c 2d 61 6c 69 61 73 | 2d 66 69 6c 65 20 62 75 |al-alias|-file bu|
|00001650| 69 6c 64 2d 6d 61 69 6c | 2d 61 6c 69 61 73 65 73 |ild-mail|-aliases|
|00001660| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c | string-|match "\|
|00001670| 5c 60 5b 20 09 5c 6e 2c | 5d 2b 22 20 64 65 66 69 |\`[ .\n,|]+" defi|
|00001680| 6e 69 74 69 6f 6e 20 30 | 20 22 5b 20 09 5c 6e 2c |nition 0| "[ .\n,|
|00001690| 5d 2b 5c 5c 27 22 20 22 | 22 20 74 65 6d 20 65 6e |]+\\'" "|" tem en|
|000016a0| 64 20 4c 20 73 74 61 72 | 74 20 72 65 73 75 6c 74 |d L star|t result|
|000016b0| 20 66 72 6f 6d 2d 6d 61 | 69 6c 72 63 2d 66 69 6c | from-ma|ilrc-fil|
|000016c0| 65 20 33 34 20 22 5c 22 | 5b 20 09 2c 5d 2a 22 20 |e 34 "\"|[ .,]*" |
|000016d0| 22 5b 20 09 2c 5d 2b 22 | 20 22 5b 20 09 5c 6e 2c |"[ .,]+"| "[ .\n,|
|000016e0| 5d 2a 2c 5b 20 09 5c 6e | 2c 5d 2a 22 20 6d 61 70 |]*,[ .\n|,]*" map|
|000016f0| 63 6f 6e 63 61 74 20 69 | 64 65 6e 74 69 74 79 20 |concat i|dentity |
|00001700| 22 2c 20 22 20 61 73 73 | 6f 63 20 6e 61 6d 65 20 |", " ass|oc name |
|00001710| 6d 61 69 6c 2d 6e 61 6d | 65 73 5d 20 36 20 28 23 |mail-nam|es] 6 (#|
|00001720| 24 20 2e 20 34 39 37 36 | 29 20 22 73 44 65 66 69 |$ . 4976|) "sDefi|
|00001730| 6e 65 20 6d 61 69 6c 20 | 61 6c 69 61 73 3a 20 5c |ne mail |alias: \|
|00001740| 6e 73 44 65 66 69 6e 65 | 20 25 73 20 61 73 20 6d |nsDefine| %s as m|
|00001750| 61 69 6c 20 61 6c 69 61 | 73 20 66 6f 72 3a 20 22 |ail alia|s for: "|
|00001760| 5d 29 0a 23 40 32 31 35 | 20 50 65 72 66 6f 72 6d |]).#@215| Perform|
|00001770| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 6f 6e 20 68 | complet|ion on h|
|00001780| 65 61 64 65 72 20 66 69 | 65 6c 64 20 6f 72 20 77 |eader fi|eld or w|
|00001790| 6f 72 64 20 70 72 65 63 | 65 64 69 6e 67 20 70 6f |ord prec|eding po|
|000017a0| 69 6e 74 2e 0a 43 6f 6d | 70 6c 65 74 61 62 6c 65 |int..Com|pletable|
|000017b0| 20 68 65 61 64 65 72 73 | 20 61 72 65 20 61 63 63 | headers| are acc|
|000017c0| 6f 72 64 69 6e 67 20 74 | 6f 20 60 6d 61 69 6c 2d |ording t|o `mail-|
|000017d0| 63 6f 6d 70 6c 65 74 65 | 2d 61 6c 69 73 74 27 2e |complete|-alist'.|
|000017e0| 20 20 49 66 20 6e 6f 6e | 65 20 6d 61 74 63 68 65 |  If non|e matche|
|000017f0| 73 0a 63 75 72 72 65 6e | 74 20 68 65 61 64 65 72 |s.curren|t header|
|00001800| 2c 20 63 61 6c 6c 73 20 | 60 6d 61 69 6c 2d 63 6f |, calls |`mail-co|
|00001810| 6d 70 6c 65 74 65 2d 66 | 75 6e 63 74 69 6f 6e 27 |mplete-f|unction'|
|00001820| 20 61 6e 64 20 70 61 73 | 73 65 73 20 70 72 65 66 | and pas|ses pref|
|00001830| 69 78 20 61 72 67 20 69 | 66 20 61 6e 79 2e 1f 0a |ix arg i|f any...|
|00001840| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 69 6c 2d |(defalia|s 'mail-|
|00001850| 63 6f 6d 70 6c 65 74 65 | 20 23 5b 28 61 72 67 29 |complete| #[(arg)|
|00001860| 20 22 c0 20 88 09 c2 3d | 83 14 00 c3 11 c4 0d 21 | ". ...=|.......!|
|00001870| 83 14 00 c6 20 88 0e 07 | 1e 08 8a c9 ca 0e 0b ca |.... ...|........|
|00001880| 51 c3 c2 23 29 83 be 00 | 8a cc cd c3 c2 23 83 53 |Q..#)...|.....#.S|
|00001890| 00 0e 08 83 53 00 ce 0e | 08 40 40 21 83 4a 00 0e |....S...|.@@!.J..|
|000018a0| 08 40 41 16 0f c3 89 16 | 08 82 31 00 0e 08 41 89 |.@A.....|..1...A.|
|000018b0| 16 08 84 34 00 0e 0f 29 | 83 be 00 60 1e 10 8a d1 |...4...)|...`....|
|000018c0| c3 78 88 60 29 89 1e 12 | 0e 10 7b 1e 13 c3 1e 14 |.x.`)...|..{.....|
|000018d0| d5 0e 0f 21 16 08 d6 0e | 13 0e 08 5c 22 89 16 14 |...!....|...\"...|
|000018e0| c2 3d 86 ba 00 0e 14 84 | 92 00 d7 d8 0e 13 5c 22 |.=......|......\"|
|000018f0| 88 d9 20 82 ba 00 0e 13 | 0e 14 98 84 a6 00 0e 12 |.. .....|........|
|00001900| 0e 10 7c 88 0e 14 63 82 | ba 00 d7 da 21 88 db 90 |..|...c.|....!...|
|00001910| dc dd 0e 13 0e 08 5c 22 | 21 91 88 d7 de df 5c 22 |......\"|!.....\"|
|00001920| 2c 82 c3 00 0e 20 0e 0f | 21 29 87 22 20 5b 73 65 |,.... ..|!)." [se|
|00001930| 6e 64 6d 61 69 6c 2d 73 | 79 6e 63 2d 61 6c 69 61 |ndmail-s|ync-alia|
|00001940| 73 65 73 20 6d 61 69 6c | 2d 61 6c 69 61 73 65 73 |ses mail|-aliases|
|00001950| 20 74 20 6e 69 6c 20 66 | 69 6c 65 2d 65 78 69 73 | t nil f|ile-exis|
|00001960| 74 73 2d 70 20 6d 61 69 | 6c 2d 70 65 72 73 6f 6e |ts-p mai|l-person|
|00001970| 61 6c 2d 61 6c 69 61 73 | 2d 66 69 6c 65 20 62 75 |al-alias|-file bu|
|00001980| 69 6c 64 2d 6d 61 69 6c | 2d 61 6c 69 61 73 65 73 |ild-mail|-aliases|
|00001990| 20 6d 61 69 6c 2d 63 6f | 6d 70 6c 65 74 65 2d 61 | mail-co|mplete-a|
|000019a0| 6c 69 73 74 20 6c 69 73 | 74 20 73 65 61 72 63 68 |list lis|t search|
|000019b0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 22 20 6d 61 |-forward| "\n" ma|
|000019c0| 69 6c 2d 68 65 61 64 65 | 72 2d 73 65 70 61 72 61 |il-heade|r-separa|
|000019d0| 74 6f 72 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |tor re-s|earch-ba|
|000019e0| 63 6b 77 61 72 64 20 22 | 5e 5b 5e 09 5d 22 20 6c |ckward "|^[^.]" l|
|000019f0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 61 72 67 20 65 6e |ooking-a|t arg en|
|00001a00| 64 20 22 5e 20 09 3c 2c | 3a 22 20 62 65 67 20 70 |d "^ .<,|:" beg p|
|00001a10| 61 74 74 65 72 6e 20 63 | 6f 6d 70 6c 65 74 69 6f |attern c|ompletio|
|00001a20| 6e 20 65 76 61 6c 20 74 | 72 79 2d 63 6f 6d 70 6c |n eval t|ry-compl|
|00001a30| 65 74 69 6f 6e 20 6d 65 | 73 73 61 67 65 20 22 43 |etion me|ssage "C|
|00001a40| 61 6e 27 74 20 66 69 6e | 64 20 63 6f 6d 70 6c 65 |an't fin|d comple|
|00001a50| 74 69 6f 6e 20 66 6f 72 | 20 5c 22 25 73 5c 22 22 |tion for| \"%s\""|
|00001a60| 20 64 69 6e 67 20 22 4d | 61 6b 69 6e 67 20 63 6f | ding "M|aking co|
|00001a70| 6d 70 6c 65 74 69 6f 6e | 20 6c 69 73 74 2e 2e 2e |mpletion| list...|
|00001a80| 22 20 22 2a 43 6f 6d 70 | 6c 65 74 69 6f 6e 73 2a |" "*Comp|letions*|
|00001a90| 22 20 64 69 73 70 6c 61 | 79 2d 63 6f 6d 70 6c 65 |" displa|y-comple|
|00001aa0| 74 69 6f 6e 2d 6c 69 73 | 74 20 61 6c 6c 2d 63 6f |tion-lis|t all-co|
|00001ab0| 6d 70 6c 65 74 69 6f 6e | 73 20 22 4d 61 6b 69 6e |mpletion|s "Makin|
|00001ac0| 67 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 6c 69 73 |g comple|tion lis|
|00001ad0| 74 2e 2e 2e 25 73 22 20 | 22 64 6f 6e 65 22 20 6d |t...%s" |"done" m|
|00001ae0| 61 69 6c 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 75 6e |ail-comp|lete-fun|
|00001af0| 63 74 69 6f 6e 5d 20 36 | 20 28 23 24 20 2e 20 35 |ction] 6| (#$ . 5|
|00001b00| 39 39 33 29 20 22 50 22 | 5d 29 0a 23 40 31 35 35 |993) "P"|]).#@155|
|00001b10| 20 46 65 74 63 68 20 6c | 6f 63 61 6c 20 75 73 65 | Fetch l|ocal use|
|00001b20| 72 73 20 61 6e 64 20 67 | 6c 6f 62 61 6c 20 6d 61 |rs and g|lobal ma|
|00001b30| 69 6c 20 61 64 72 65 73 | 73 65 73 20 66 6f 72 20 |il adres|ses for |
|00001b40| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2e 0a 43 6f 6e 73 |completi|on..Cons|
|00001b50| 75 6c 74 73 20 60 2f 65 | 74 63 2f 70 61 73 73 77 |ults `/e|tc/passw|
|00001b60| 64 27 20 61 6e 64 20 61 | 20 64 69 72 65 63 74 6f |d' and a| directo|
|00001b70| 72 79 20 73 65 72 76 69 | 63 65 20 69 66 20 6f 6e |ry servi|ce if on|
|00001b80| 65 20 69 73 20 73 65 74 | 20 75 70 20 76 69 61 0a |e is set| up via.|
|00001b90| 60 6d 61 69 6c 2d 64 69 | 72 65 63 74 6f 72 79 2d |`mail-di|rectory-|
|00001ba0| 66 75 6e 63 74 69 6f 6e | 27 2e 1f 0a 28 64 65 66 |function|'...(def|
|00001bb0| 61 6c 69 61 73 20 27 6d | 61 69 6c 2d 67 65 74 2d |alias 'm|ail-get-|
|00001bc0| 6e 61 6d 65 73 20 23 5b | 28 70 61 74 74 65 72 6e |names #[|(pattern|
|00001bd0| 29 20 22 08 c1 3d 83 33 | 00 8a c2 c3 21 71 88 c4 |) "..=.3|....!q..|
|00001be0| c5 c6 89 89 c1 25 88 c6 | 10 6d 84 2e 00 c7 c8 21 |.....%..|.m.....!|
|00001bf0| 83 28 00 c9 c0 ca cb 21 | 43 5c 22 88 cb 79 88 82 |.(.....!|C\"..y..|
|00001c00| 16 00 cc 70 21 88 29 0e | 0d c1 3d 84 41 00 0e 0e |...p!.).|..=.A...|
|00001c10| c1 3d 83 88 00 c6 1e 0f | 0e 10 83 5b 00 0e 0e c1 |.=......|...[....|
|00001c20| 3d 83 5b 00 d1 0e 12 85 | 58 00 0e 13 21 16 0f 0e |=.[.....|X...!...|
|00001c30| 0f 84 67 00 0e 0d c1 3d | 83 7e 00 d4 d5 0e 16 3a |..g....=|.~.....:|
|00001c40| 85 71 00 0e 16 08 3a 85 | 77 00 08 0e 0f 23 d7 5c |.q....:.|w....#.\|
|00001c50| 22 16 0d 0e 12 84 87 00 | 0e 0f 16 0e 29 0e 0d 87 |".......|....)...|
|00001c60| 22 20 5b 6d 61 69 6c 2d | 6c 6f 63 61 6c 2d 6e 61 |" [mail-|local-na|
|00001c70| 6d 65 73 20 74 20 67 65 | 6e 65 72 61 74 65 2d 6e |mes t ge|nerate-n|
|00001c80| 65 77 2d 62 75 66 66 65 | 72 20 22 20 70 61 73 73 |ew-buffe|r " pass|
|00001c90| 77 64 22 20 69 6e 73 65 | 72 74 2d 66 69 6c 65 2d |wd" inse|rt-file-|
|00001ca0| 63 6f 6e 74 65 6e 74 73 | 20 22 2f 65 74 63 2f 70 |contents| "/etc/p|
|00001cb0| 61 73 73 77 64 22 20 6e | 69 6c 20 6c 6f 6f 6b 69 |asswd" n|il looki|
|00001cc0| 6e 67 2d 61 74 20 22 5c | 5c 2b 3f 5c 5c 28 5b 5e |ng-at "\|\+?\\([^|
|00001cd0| 3a 40 5c 6e 2b 5d 2b 5c | 5c 29 22 20 61 64 64 2d |:@\n+]+\|\)" add-|
|00001ce0| 74 6f 2d 6c 69 73 74 20 | 6d 61 74 63 68 2d 73 74 |to-list |match-st|
|00001cf0| 72 69 6e 67 20 31 20 6b | 69 6c 6c 2d 62 75 66 66 |ring 1 k|ill-buff|
|00001d00| 65 72 20 6d 61 69 6c 2d | 6e 61 6d 65 73 20 6d 61 |er mail-|names ma|
|00001d10| 69 6c 2d 64 69 72 65 63 | 74 6f 72 79 2d 6e 61 6d |il-direc|tory-nam|
|00001d20| 65 73 20 64 69 72 65 63 | 74 6f 72 79 20 6d 61 69 |es direc|tory mai|
|00001d30| 6c 2d 64 69 72 65 63 74 | 6f 72 79 2d 66 75 6e 63 |l-direct|ory-func|
|00001d40| 74 69 6f 6e 20 6d 61 69 | 6c 2d 64 69 72 65 63 74 |tion mai|l-direct|
|00001d50| 6f 72 79 20 6d 61 69 6c | 2d 64 69 72 65 63 74 6f |ory mail|-directo|
|00001d60| 72 79 2d 72 65 71 75 65 | 72 79 20 70 61 74 74 65 |ry-reque|ry patte|
|00001d70| 72 6e 20 73 6f 72 74 20 | 61 70 70 65 6e 64 20 6d |rn sort |append m|
|00001d80| 61 69 6c 2d 61 6c 69 61 | 73 65 73 20 23 5b 28 61 |ail-alia|ses #[(a|
|00001d90| 20 62 29 20 22 08 40 97 | 09 40 97 99 87 22 20 5b | b) ".@.|.@..." [|
|00001da0| 61 20 62 5d 20 32 5d 5d | 20 36 20 28 23 24 20 2e |a b] 2]]| 6 (#$ .|
|00001db0| 20 36 39 32 39 29 5d 29 | 0a 23 40 31 34 32 20 43 | 6929)])|.#@142 C|
|00001dc0| 61 6c 6c 20 64 69 72 65 | 63 74 6f 72 79 20 74 6f |all dire|ctory to|
|00001dd0| 20 67 65 74 20 6e 61 6d | 65 73 20 6d 61 74 63 68 | get nam|es match|
|00001de0| 69 6e 67 20 50 41 54 54 | 45 52 4e 20 6f 72 20 61 |ing PATT|ERN or a|
|00001df0| 6c 6c 20 69 66 20 60 6e | 69 6c 27 2e 0a 43 61 6c |ll if `n|il'..Cal|
|00001e00| 6c 73 20 60 6d 61 69 6c | 2d 64 69 72 65 63 74 6f |ls `mail|-directo|
|00001e10| 72 79 2d 66 75 6e 63 74 | 69 6f 6e 27 20 61 6e 64 |ry-funct|ion' and|
|00001e20| 20 61 70 70 6c 69 65 73 | 20 60 6d 61 69 6c 2d 64 | applies| `mail-d|
|00001e30| 69 72 65 63 74 6f 72 79 | 2d 70 61 72 73 65 72 27 |irectory|-parser'|
|00001e40| 20 74 6f 20 6f 75 74 70 | 75 74 2e 1f 0a 28 64 65 | to outp|ut...(de|
|00001e50| 66 61 6c 69 61 73 20 27 | 6d 61 69 6c 2d 64 69 72 |falias '|mail-dir|
|00001e60| 65 63 74 6f 72 79 20 23 | 5b 28 70 61 74 74 65 72 |ectory #|[(patter|
|00001e70| 6e 29 20 22 8a c0 c1 21 | 88 c2 c3 21 71 88 5c 66 |n) "...!|...!q.\f|
|00001e80| 0d 21 88 c6 62 88 c7 1e | 08 0e 09 3b 83 2f 00 ca |.!..b...|...;./..|
|00001e90| 0e 09 c7 cb 23 83 58 00 | cc c6 21 43 0e 08 42 16 |....#.X.|..!C..B.|
|00001ea0| 08 82 1a 00 0e 09 83 3c | 00 0e 09 20 16 08 82 58 |.......<|... ...X|
|00001eb0| 00 6d 84 58 00 60 c7 79 | 88 6e 83 4d 00 60 53 82 |.m.X.`.y|.n.M.`S.|
|00001ec0| 4e 00 60 7b 43 0e 08 42 | 16 08 82 3c 00 cd 70 21 |N.`{C..B|...<..p!|
|00001ed0| 88 c0 ce 21 88 0e 08 2a | 87 22 20 5b 6d 65 73 73 |...!...*|." [mess|
|00001ee0| 61 67 65 20 22 51 75 65 | 72 79 69 6e 67 20 64 69 |age "Que|rying di|
|00001ef0| 72 65 63 74 6f 72 79 2e | 2e 2e 22 20 67 65 6e 65 |rectory.|.." gene|
|00001f00| 72 61 74 65 2d 6e 65 77 | 2d 62 75 66 66 65 72 20 |rate-new|-buffer |
|00001f10| 22 20 2a 6d 61 69 6c 2d | 64 69 72 65 63 74 6f 72 |" *mail-|director|
|00001f20| 79 2a 22 20 6d 61 69 6c | 2d 64 69 72 65 63 74 6f |y*" mail|-directo|
|00001f30| 72 79 2d 66 75 6e 63 74 | 69 6f 6e 20 70 61 74 74 |ry-funct|ion patt|
|00001f40| 65 72 6e 20 31 20 6e 69 | 6c 20 64 69 72 65 63 74 |ern 1 ni|l direct|
|00001f50| 6f 72 79 20 6d 61 69 6c | 2d 64 69 72 65 63 74 6f |ory mail|-directo|
|00001f60| 72 79 2d 70 61 72 73 65 | 72 20 72 65 2d 73 65 61 |ry-parse|r re-sea|
|00001f70| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 20 6d 61 |rch-forw|ard t ma|
|00001f80| 74 63 68 2d 73 74 72 69 | 6e 67 20 6b 69 6c 6c 2d |tch-stri|ng kill-|
|00001f90| 62 75 66 66 65 72 20 22 | 51 75 65 72 79 69 6e 67 |buffer "|Querying|
|00001fa0| 20 64 69 72 65 63 74 6f | 72 79 2e 2e 2e 64 6f 6e | directo|ry...don|
|00001fb0| 65 22 5d 20 34 20 28 23 | 24 20 2e 20 37 36 31 35 |e"] 4 (#|$ . 7615|
|00001fc0| 29 5d 29 0a 23 40 38 31 | 20 43 61 6c 6c 20 61 20 |)]).#@81| Call a |
|00001fd0| 55 6e 69 78 20 70 72 6f | 63 65 73 73 20 74 6f 20 |Unix pro|cess to |
|00001fe0| 6f 75 74 70 75 74 20 6e | 61 6d 65 73 20 69 6e 20 |output n|ames in |
|00001ff0| 64 69 72 65 63 74 6f 72 | 79 2e 0a 53 65 65 20 60 |director|y..See `|
|00002000| 6d 61 69 6c 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |mail-dir|ectory-p|
|00002010| 72 6f 63 65 73 73 27 2e | 1f 0a 28 64 65 66 61 6c |rocess'.|..(defal|
|00002020| 69 61 73 20 27 6d 61 69 | 6c 2d 64 69 72 65 63 74 |ias 'mai|l-direct|
|00002030| 6f 72 79 2d 70 72 6f 63 | 65 73 73 20 23 5b 28 70 |ory-proc|ess #[(p|
|00002040| 61 74 74 65 72 6e 29 20 | 22 c0 c1 c2 0b 40 21 c4 |attern) |"....@!.|
|00002050| c5 c4 c6 c2 0b 41 5c 22 | 26 06 87 22 20 5b 61 70 |.....A\"|&.." [ap|
|00002060| 70 6c 79 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ply call|-process|
|00002070| 20 65 76 61 6c 20 6d 61 | 69 6c 2d 64 69 72 65 63 | eval ma|il-direc|
|00002080| 74 6f 72 79 2d 70 72 6f | 63 65 73 73 20 6e 69 6c |tory-pro|cess nil|
|00002090| 20 74 20 6d 61 70 63 61 | 72 5d 20 39 20 28 23 24 | t mapca|r] 9 (#$|
|000020a0| 20 2e 20 38 31 33 37 29 | 5d 29 0a 23 40 37 36 20 | . 8137)|]).#@76 |
|000020b0| 4f 70 65 6e 20 61 20 73 | 74 72 65 61 6d 20 74 6f |Open a s|tream to|
|000020c0| 20 72 65 74 72 69 65 76 | 65 20 6e 61 6d 65 73 20 | retriev|e names |
|000020d0| 69 6e 20 64 69 72 65 63 | 74 6f 72 79 2e 0a 53 65 |in direc|tory..Se|
|000020e0| 65 20 60 6d 61 69 6c 2d | 64 69 72 65 63 74 6f 72 |e `mail-|director|
|000020f0| 79 2d 73 74 72 65 61 6d | 27 2e 1f 0a 28 64 65 66 |y-stream|'...(def|
|00002100| 61 6c 69 61 73 20 27 6d | 61 69 6c 2d 64 69 72 65 |alias 'm|ail-dire|
|00002110| 63 74 6f 72 79 2d 73 74 | 72 65 61 6d 20 23 5b 28 |ctory-st|ream #[(|
|00002120| 70 61 74 74 65 72 6e 29 | 20 22 c0 19 c2 c3 c4 c5 |pattern)| "......|
|00002130| 70 0e 06 24 c7 5c 22 88 | 09 3f 85 19 00 c8 c9 21 |p..$.\".|.?.....!|
|00002140| 88 82 0d 00 29 87 22 20 | 5b 6e 69 6c 20 6d 61 69 |....)." |[nil mai|
|00002150| 6c 61 6c 69 61 73 2d 64 | 6f 6e 65 20 73 65 74 2d |lalias-d|one set-|
|00002160| 70 72 6f 63 65 73 73 2d | 73 65 6e 74 69 6e 65 6c |process-|sentinel|
|00002170| 20 61 70 70 6c 79 20 6f | 70 65 6e 2d 6e 65 74 77 | apply o|pen-netw|
|00002180| 6f 72 6b 2d 73 74 72 65 | 61 6d 20 22 6d 61 69 6c |ork-stre|am "mail|
|00002190| 61 6c 69 61 73 22 20 6d | 61 69 6c 2d 64 69 72 65 |alias" m|ail-dire|
|000021a0| 63 74 6f 72 79 2d 73 74 | 72 65 61 6d 20 23 5b 28 |ctory-st|ream #[(|
|000021b0| 78 20 78 29 20 22 c0 89 | 11 87 22 20 5b 74 20 6d |x x) "..|.." [t m|
|000021c0| 61 69 6c 61 6c 69 61 73 | 2d 64 6f 6e 65 5d 20 32 |ailalias|-done] 2|
|000021d0| 5d 20 73 69 74 2d 66 6f | 72 20 30 2e 31 30 30 30 |] sit-fo|r 0.1000|
|000021e0| 30 30 30 30 30 30 30 30 | 30 30 30 30 31 5d 20 36 |00000000|00001] 6|
|000021f0| 20 28 23 24 20 2e 20 38 | 33 36 38 29 5d 29 0a 23 | (#$ . 8|368)]).#|
|00002200| 40 36 35 20 52 65 74 75 | 72 6e 20 61 6c 6c 20 65 |@65 Retu|rn all e|
|00002210| 6e 74 72 69 65 73 20 66 | 72 6f 6d 20 4e 65 77 73 |ntries f|rom News|
|00002220| 67 72 6f 75 70 73 3a 20 | 68 65 61 64 65 72 20 61 |groups: |header a|
|00002230| 73 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 61 6c 69 |s comple|tion ali|
|00002240| 73 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |st...(de|falias '|
|00002250| 6d 61 69 6c 2d 73 65 6e | 74 74 6f 2d 6e 65 77 73 |mail-sen|tto-news|
|00002260| 67 72 6f 75 70 73 20 23 | 5b 6e 69 6c 20 22 8a c0 |groups #|[nil "..|
|00002270| c1 c2 5c 22 85 26 00 60 | c3 1c 1d c6 c3 78 c7 57 |..\".&.`|.....x.W|
|00002280| 83 24 00 60 0d 7b 43 5c | 66 42 14 c8 c3 78 88 60 |.$.`.{C\|fB...x.`|
|00002290| 15 82 5c 66 00 5c 66 2a | 29 87 22 20 5b 6d 61 69 |..\f.\f*|)." [mai|
|000022a0| 6c 2d 70 6f 73 69 74 69 | 6f 6e 2d 6f 6e 2d 66 69 |l-positi|on-on-fi|
|000022b0| 65 6c 64 20 22 6e 65 77 | 73 67 72 6f 75 70 73 22 |eld "new|sgroups"|
|000022c0| 20 74 20 6e 69 6c 20 6c | 69 73 74 20 70 6f 69 6e | t nil l|ist poin|
|000022d0| 74 20 22 5e 3a 2c 20 09 | 5c 6e 22 20 30 20 22 2c |t "^:, .|\n" 0 ",|
|000022e0| 20 09 5c 6e 22 5d 20 33 | 20 28 23 24 20 2e 20 38 | .\n"] 3| (#$ . 8|
|000022f0| 37 30 38 29 5d 29 0a 28 | 70 72 6f 76 69 64 65 20 |708)]).(|provide |
|00002300| 28 71 75 6f 74 65 20 6d | 61 69 6c 61 6c 69 61 73 |(quote m|ailalias|
|00002310| 29 29 0a                |                         |)).     |        |
+--------+-------------------------+-------------------------+--------+--------+